home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / lcu.zip / COLORS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  432b  |  21 lines
  1. {$R-}    {Range checking off}
  2. {$B-}    {Boolean complete evaluation off}
  3. {$S-}    {Stack checking off}
  4. {$N-}    {No numeric coprocessor}
  5. {$I-}    {IO Checking Off}
  6. {$D-}
  7. {$T-}
  8.  
  9. unit Colors;
  10. {JW Sparks, last modified 6/30/88}
  11.  
  12. interface
  13. uses crt;
  14. const
  15.    Background            = Blue;
  16.    ForeGround            = White;
  17.    Emphasized            = Yellow;
  18.    Warning               = LightRed;
  19.  
  20. Implementation
  21. end.